home *** CD-ROM | disk | FTP | other *** search
/ Cracking 1 / Cracking I..iso / Tools / Ostatní / aPLib v0.26b / examples / vpascal / testappa.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-12-15  |  716 b   |  48 lines
  1. (*$M 32000*)
  2. program test__aplib_pack;
  3.  
  4. (*$IFDEF DYNAMIC_VERSION*)
  5. uses aplibud;
  6. (*$ELSE*)
  7. uses aplibu;
  8. (*$ENDIF*)
  9.  
  10. var
  11.   p1,p2:pointer;
  12.   l:longint;
  13.   egal:pointer;
  14.   d1,d2:file;
  15.   workmem:^workmem_type;
  16.  
  17. begin
  18.   if paramcount<>2 then
  19.     begin
  20.       writeln('TESTAPPA.EXE <normal> <aplib>');
  21.       halt(1);
  22.     end;
  23.  
  24.   assign(d1,paramstr(1));
  25.   reset(d1,1);
  26.   l:=filesize(d1);
  27.   getmem(p1,l);
  28.   blockread(d1,p1^,l);
  29.   close(d1);
  30.  
  31.   getmem(p2,((l*9) div 8)+16);
  32.  
  33.   new(workmem);
  34.   l:=_ap_pack(p1^,p2^,l,workmem^,cb1);
  35.   dispose(workmem);
  36.   writeln;
  37.  
  38.   assign(d2,paramstr(2));
  39.   rewrite(d2,1);
  40.   blockwrite(d2,p2^,l);
  41.   close(d2);
  42.  
  43.   dispose(p1);
  44.   dispose(p2);
  45.  
  46. end.
  47.  
  48.